home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b8.d64 / circle3.l < prev    next >
Text File  |  2007-02-28  |  424b  |  24 lines
  1. 0270 PROC CIRCLE(H,V,SCALE) CLOSED
  2. 0280 MOVETO H,V
  3. 0290 ASPECT:=1.3
  4. 0300 Y:=0
  5. 0310 FIRST:=TRUE
  6. 0320 D'THETA:=.1
  7. 0330 C:=COS(D'THETA)
  8. 0340 S:=SIN(D'THETA)
  9. 0350 NUM:=64
  10. 0360 FOR LOOP:=1 TO NUM DO
  11. 0370 TEMP:=SCALE*C-Y*S
  12. 0380 Y:=Y*C+SCALE*S
  13. 0390 SCALE:=TEMP
  14. 0400 SX:=ASPECT*SCALE+H
  15. 0410 SY:=V-Y
  16. 0420 IF FIRST THEN
  17. 0430 MOVETO SX,SY
  18. 0440 FIRST:=FALSE
  19. 0450 ELSE 
  20. 0460 DRAWTO SX,SY
  21. 0470 ENDIF 
  22. 0480 ENDFOR LOOP
  23. 0490 ENDPROC CIRCLE
  24.